Nuprl Lemma : sum-deq-aux_wf
0,22
postcript
pdf
A
,
B
:Type{i},
a
:EqDecider(
A
),
b
:EqDecider(
B
).
sum-deq-aux{v:l, i:l}(
A
;
B
;
a
;
b
)
(
p
,
q
:
A
+
B
.
p
=
q
sumdeq(
a
;
b
)(
p
,
q
))
latex
Definitions
t
T
,
x
:
A
.
B
(
x
)
,
EqDecider(
T
)
,
sumdeq(
a
;
b
)
,
b
,
Prop
,
P
Q
,
sumdeq-property
,
sum-deq-aux{v:l,i:l}(
A
;
B
;
a
;
b
)
Lemmas
sumdeq-property
,
iff
wf
,
assert
wf
,
sumdeq
wf
,
deq
wf
origin
A, B:Type{i}, a:EqDecider(A), b:EqDecider(B).
(p, q:A+B. p = q 
sumdeq(a;b)(p,q)) A, B:Type{i}, a:EqDecider(A), b:EqDecider(B).
(p, q:A+B. p = q sumdeq(a;b)(p,q)) Tx:A. B(x)
b Q